home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / games / 1-l / cluea1.dms / in.adf / CreateSaveDisk < prev    next >
Encoding:
Text File  |  1994-08-05  |  5.0 KB  |  185 lines
  1. (procedure CreatePll
  2.    (textfile
  3.       (dest   (tackon "TheClouDisk6:" #pll-name))
  4.       (append "0")
  5.    ) 
  6. )
  7.  
  8. (set #disksalv-install 
  9.      (cat "\nCreate a Savedisk\n"
  10.           "\nThis tool helps you to create a Savedisk. You will need "
  11.           "such a disk if you want to save your actual score or the "
  12.           "plans you are going to create."))
  13.  
  14. (set #which-disk
  15.      "Create Savedisk in which device?")
  16.  
  17. (set #ds-done
  18.      (cat "\nThe Savedisk is now ready.\n"
  19.           "\nPlease use this disk to save your games of 'TheClue!' "
  20.           "only!"))
  21.  
  22. (procedure formatdisk
  23.     (if (askbool (prompt (cat "Please insert a disk to be formatted into "
  24.                               "drive " #outputdisk))
  25.                      (choices "Inserted!" "Abort")
  26.                      (help "\nPlease insert a blank disk into your drive.\n")
  27.                      (default 1))
  28.         ((working "Formatting Disk " #outputdisk " as \"" #outdisk-name "\"")
  29.          (run (cat "RAM:Format <NIL: >\"CON:10/10/500/50/Formatting...\" DRIVE " 
  30.                    #outputdisk " NAME \"" #outdisk-name "\" NOICONS")))
  31.          (exit "Creation aborted")))
  32.  
  33. (set @default-dest  "DF0:")
  34. (set #outputdisk    "DF0:")
  35. (set #outdisk-name  "TheClouDisk6")
  36.  
  37. (if (askbool 
  38.         (prompt #disksalv-install)
  39.     (help "\nIf you want to create a Savegamedisk, click the button \"Continue\", otherwise \"Abort\"\n")
  40.         (choices "Continue" "Abort")
  41.         (default 1))
  42.    ((set #outputdisk  
  43.         (askdir (prompt  #which-disk)
  44.             (help   ("\nPlease select the drive name where you want to create the Savedisk.\n")
  45.           (default @default-dest))))
  46.           
  47.     (set @default-dest #outputdisk)
  48.     
  49.     (copyfiles 
  50.         (prompt "Searching Format Command")
  51.         (help   " ")
  52.         (source "sys:system/format")
  53.         (dest   "ram:")
  54.     )
  55.     
  56.     (formatdisk)
  57.     
  58.     (delete
  59.         ("ram:format")
  60.         (prompt " ")
  61.         (help   " ")
  62.     )
  63.  
  64.     (askdisk
  65.         (prompt  "Please insert Disk 1 of 'The Clue!' into any drive!")
  66.         (help    "\nThere are some special files which must be copied onto your Savedisk.\n")
  67.         (dest    "TheClouDisk1"))
  68.         
  69.     (copyfiles
  70.         (source  "TheClouDisk1:texts/origin.list")
  71.         (dest    "RAM:"))
  72.         
  73.     (askdisk
  74.         (prompt  "Please insert the Savegamedisk into any drive.")
  75.         (help    "\nThere are some special files which must be copied onto your Savedisk.\n")
  76.         (dest    "TheClouDisk6"))
  77.         
  78.     (copyfiles
  79.         (source "RAM:origin.list")
  80.         (dest   "TheClouDisk6:"))
  81.  
  82.     (copyfiles
  83.         (source "RAM:origin.list")
  84.         (dest   "TheClouDisk6:")
  85.         (newname "games.list"))
  86.  
  87.     (delete
  88.         ("RAM:origin.list")
  89.         (prompt " ")
  90.         (help   " ")
  91.     )
  92.         
  93.     (set #pll-name "TobaEta.pll")
  94.     (CreatePll)
  95.     (set #pll-name "AuntEta.pll")
  96.     (CreatePll)
  97.     (set #pll-name "JuweEta.pll")
  98.     (CreatePll)
  99.     (set #pll-name "AntiEta.pll")
  100.     (CreatePll)
  101.     (set #pll-name "TranEta.pll")
  102.     (CreatePll)
  103.     (set #pll-name "SeniEta.pll")
  104.     (CreatePll)
  105.     (set #pll-name "MarxEta.pll")
  106.     (CreatePll)
  107.     (set #pll-name "VillEta.pll")
  108.     (CreatePll)
  109.     (set #pll-name "KenwEta.pll")
  110.     (CreatePll)
  111.     (set #pll-name "HamHEta.pll")
  112.     (CreatePll)
  113.     (set #pll-name "OsteEta.pll")
  114.     (CreatePll)
  115.     (set #pll-name "ChisEta.pll")
  116.     (CreatePll)
  117.     (set #pll-name "SothEta.pll")
  118.     (CreatePll)
  119.     (set #pll-name "BritEta.pll")
  120.     (CreatePll)
  121.     (set #pll-name "NatuEta.pll")
  122.     (CreatePll)
  123.     (set #pll-name "NatiEta.pll")
  124.     (CreatePll)
  125.     (set #pll-name "VictEta.pll")
  126.     (CreatePll)
  127.     (set #pll-name "BankEta.pll")
  128.     (CreatePll)
  129.     (set #pll-name "ToweEta.pll")
  130.     (CreatePll)
  131.     
  132.     (set #pll-name "KaseEta.pll")
  133.     (textfile
  134.       (dest   (tackon "TheClouDisk6:" #pll-name))
  135.       (append "15")
  136.     ) 
  137.  
  138.     (askdisk
  139.         (prompt  "Please insert Disk 4 of 'The Clue!' into any drive.")
  140.         (help    "\nThere are some special files which must be copied onto your Savedisk.\n")
  141.         (dest    "TheClouDisk4"))
  142.         
  143.     (copyfiles
  144.         (prompt  "Copying Data")
  145.         (source  "TheClouDisk4:data/KaseEta.pln")
  146.         (dest    "RAM:")
  147.     )
  148.  
  149.     (askdisk
  150.         (prompt  "Please insert the Savegamedisk into any drive.")
  151.         (help    "\nThere are some special files which must be copied onto your Savedisk.\n")
  152.         (dest    "TheClouDisk6"))
  153.         
  154.     (copyfiles
  155.         (prompt  "Copying Data")
  156.         (source  "RAM:KaseEta.pln")
  157.         (dest    "TheClouDisk6:")
  158.         (newname "KaseEta1.pln")
  159.     )
  160.  
  161.     (copyfiles
  162.         (prompt  "Copying Data")
  163.         (source  "RAM:KaseEta.pln")
  164.         (dest    "TheClouDisk6:")
  165.         (newname "KaseEta2.pln")
  166.     )
  167.  
  168.     (copyfiles
  169.         (prompt  "Copying Data")
  170.         (source  "RAM:KaseEta.pln")
  171.         (dest    "TheClouDisk6:")
  172.         (newname "KaseEta3.pln")
  173.     )
  174.  
  175.     (copyfiles
  176.         (prompt  "Copying Data")
  177.         (source  "RAM:KaseEta.pln")
  178.         (dest    "TheClouDisk6:")
  179.         (newname "KaseEta4.pln")
  180.     )
  181.  
  182.     (message #ds-done)))
  183.  
  184. (exit (quiet))
  185.